jsoltys/CGW
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

first commit

Browse Source
This commit is contained in:
Jason Soltys
2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
CGWASCNV.PRG
+29
View File
@@ -0,0 +1,29 @@
PROCEDURE CGWASCNV()
SELECT 0
USE CGW0OM
SET FILTER TO !EMPTY(ALTSHPNAME) .OR. ;
!EMPTY(ALTSHPADDR) .OR. ;
!EMPTY(ALTSHPADD2) .OR. ;
!EMPTY(ALTSHPADD3) .OR. ;
!EMPTY(ALTSHPCITY) .OR. ;
!EMPTY(ALTSHPSTATE) .OR. ;
!EMPTY(ALTSHPZIP) .OR. ;
!EMPTY(ASNAMESCRN) .OR. ;
!EMPTY(ASADDRSCRN) .OR. ;
!EMPTY(ASADD2SCRN) .OR. ;
!EMPTY(ASADD3SCRN) .OR. ;
!EMPTY(ASCITYSCRN) .OR. ;
!EMPTY(ASSTATSCRN) .OR. ;
!EMPTY(ASZIPSCRN) .OR. ;
!EMPTY(ASNAMESTRM) .OR. ;
!EMPTY(ASADDRSTRM) .OR. ;
!EMPTY(ASADD2STRM) .OR. ;
!EMPTY(ASADD3STRM) .OR. ;
!EMPTY(ASCITYSTRM) .OR. ;
!EMPTY(ASSTATSTRM) .OR. ;
!EMPTY(ASZIPSTRM)
GO TOP
COPY TO ALTSHIP
RETURN